home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / gv1 / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-03  |  2.7 KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    Caption         =   "How to register "
  4.    ClientHeight    =   1320
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4560
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1320
  10.    ScaleWidth      =   4560
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "OK"
  14.       Height          =   330
  15.       Left            =   3105
  16.       TabIndex        =   3
  17.       Top             =   855
  18.       Width           =   1410
  19.    End
  20.    Begin VB.Label Label2 
  21.       Caption         =   "email: biggieboysoft@usa.net"
  22.       Height          =   330
  23.       Left            =   135
  24.       TabIndex        =   2
  25.       Top             =   855
  26.       Width           =   2310
  27.    End
  28.    Begin VB.Label Label1 
  29.       Caption         =   "For Register Information, please visit us on the web"
  30.       Height          =   330
  31.       Left            =   135
  32.       TabIndex        =   1
  33.       Top             =   45
  34.       Width           =   4380
  35.    End
  36.    Begin VB.Label lblURL 
  37.       AutoSize        =   -1  'True
  38.       Caption         =   "http://members.xoom.com/biggieboy"
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   12
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   300
  49.       Left            =   135
  50.       TabIndex        =   0
  51.       Top             =   405
  52.       Width           =   4305
  53.    End
  54. Attribute VB_Name = "frmAbout"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. #If Win32 Then
  60. Private Declare Function ShellExecute Lib _
  61. "shell32.dll" Alias "ShellExecuteA" _
  62. (ByVal hwnd As Long, _
  63. ByVal lpOperation As String, _
  64. ByVal lpFile As String, _
  65. ByVal lpParameters As String, _
  66. ByVal lpDirectory As String, _
  67. ByVal nShowCmd As Long) As Long
  68. #Else
  69. Private Declare Function ShellExecute Lib _
  70. "shell.dll" _
  71. (ByVal hwnd As Integer, _
  72. ByVal lpOperation As String, _
  73. ByVal lpFile As String, _
  74. ByVal lpParameters As String, _
  75. ByVal lpDirectory As String, _
  76. ByVal nShowCmd As Integer) As Integer
  77. #End If
  78. Private Sub iNetConn()
  79. URL = lblURL.Caption
  80.     iret = ShellExecute(Me.hwnd, _
  81.         vbNullString, _
  82.         URL, _
  83.         vbNullString, _
  84.         "c:\", _
  85.         SW_SHOWNORMAL)
  86. End Sub
  87. Private Sub Command1_Click()
  88.     Unload Me
  89. End Sub
  90. Private Sub lblURL_Click()
  91.     Call iNetConn
  92. End Sub
  93.